8bitfiles.net/archives/archives.tar/archives/genie-commodore-file-library/C64Games/BASHBRAIN.SDA/BASH YER BRAINS/BASH YER BRAINS.a7ae

Commodore BASIC | 2019-04-13 | 48.6 KB | 187 lines

1 A$="ABCDEFGHIJKLMNOPQ":A$=A$+A$+A$+A$+A$:A$=A$+A$+A$
2 GOTO 600
3 FORJ=896TO937:READX:POKEJ,X:T=T+X:NEXTJ
4 DATA 160,2,177,45,153,137,0,200,192,6
5 DATA 208,246,162,1,32,198,255
6 DATA 32,228,255,201,13,240,15,164,142,145
7 DATA 140,200,132,142,196,139,240,4,165,144,240,234,76,204,255
10 FORDD=49152TODD+224:READY:POKEDD,Y:NEXT DD
40 DATA169,0,141,19,3,169,36,133,150,169,8,170,160,0,32,186,255
50 DATA169,1,162,150,32,189,255,32,192,255,162,8,32,198,255,32,207
60 DATA255,32,207,255,169,0,133,253,169,128,133,254,165,47,133,251,165
70 DATA48,133,252,160,0,177,251,201,70,240,9,200,208,247,230,252,208
80 DATA243,240,78,200,208,2,230,252,177,251,201,128,240,2,208,228,162
90 DATA9,200,208,2,230,252,202,208,248,152,24,101,251,133,251,144,2
91 DATA230,252,160,31,32,207,255,136,208,250,32,207,255,166,144,208,30
92 DATA201,34,208,245,165,253,133,176,165,254,133,177,160,0,32,207,255
93 DATA201,34,240,18,145,176,200,208,244,230,177,208,240,32,204,255,169
94 DATA8,32,195,255,96,132,155,152,24,101,176,133,176,144,2,230,177
95 DATA160,0,165,155,145,251,200,165,253,145,251,200,165,254,145,251,200
96 DATA152,24,101,251,133,251,144,2,230,252,165,176,133,253,165,177,133
97 DATA 254,238,19,3,32,207,255,208,251,32,207,255,32,207,255,32,207
98 DATA 255,76,112,192
100 REM BASH YER BRAINS 1.0 (BASIC V1.9)
101 A$="ABCDEFGHIJKLMNOPQ":A$=A$+A$+A$+A$+A$:A$=A$+A$+A$
102 PRINT"[147]"CHR$(14);:M$=CHR$(34):POKE 53280,0:POKE 53281,0:REM POKE 808,234
103 DIM F$(144),DR$(30),W$(2000),CM$(16),RE$(16):F$(1)=""
104 DR=0
105 PRINT"[147][152][145][176][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][174]"
106 PRINT"[171][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][179]"
107 PRINT"[171][219][219][219][219][219][219][219][219][219][156]                   [152][219][219][219][219][219][219][219][219][219][179]"
108 PRINT"[171][219][219][219][219][219][219][219][219][219][156]  [194]ASH [217]ER [194]RAINS  [152][144] [152][219][219][219][219][219][219][219][219][179]"
109 PRINT"[171][219][219][219][219][219][219][219][219][219][156]  [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]  [152][144] [152][219][219][219][219][219][219][219][219][179]":M%=0
110 PRINT"[171][219][219][219][219][219][219][219][219][219][156]    [212]RIVIA  V1.[207]   [152][144] [152][219][219][219][219][219][219][219][219][179]"
111 PRINT"[171][219][219][219][219][219][219][219][219][219][156]                   [152][144] [152][219][219][219][219][219][219][219][219][179]"
112 PRINT"[171][219][219][219][219][219][219][219][219][219][219][144]                   [152][219][219][219][219][219][219][219][219][179]"
113 PRINT"[173][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][189]":PP$=""
114 PRINT"            [159] [208]LEASE [215]AIT..":IF DR$(1)<>"" THEN120
115 SYS 49152:K=PEEK(787):FOR DA=1 TO K:IF K=0 AND F$(1)<>"" THEN CLR:GOTO100
116 IFLEFT$(F$(DA),3)="BB."THENDR=DR+1:DR$(DR)=RIGHT$(F$(DA),(LEN(F$(DA))-3))
117 NEXT DA:IFDR=0THENPRINT"[145] * [201]NSERT[160][212]RIVIA [196]ISK [193]ND [208]RESS [211]PACE *"
118 IF DR=0 THEN WAIT 198,1:POKE 198,0:GOTO 105
120 PRINT"[145]          [152] [211]ELECT [195]ATEGORY:"
121 FOR DB=1 TO DR:PRINT"[155]            "DB"[154] "DR$(DB):NEXT DB
122 PRINT"[156]       [208]RESS "M$"[200]"M$" [198]OR [200]ELP [207]R [205]ENU [146]"
124 GETQ$:IF Q$="D" THEN CLR:GOTO 100
125 FOR DB=1 TO DR:IF VAL(Q$)=DB THEN LO$="BB."+DR$(DB):GOTO 136
126 NEXT DB
127 IF Q$="H" THEN 508
128 IF Q$="Q" THEN PRINT"[147]   [209]UIT: [217] OR [206] ?":IF PP$="N" THEN 105
129 IF Q$="Q"THEN GET PP$:IF PP$<>"Y" THEN 128
130 IF Q$="Q" AND PP$="Y" THENSYS 64738
131 IF Q$="I" THEN 530
132 IF Q$="M" THEN 135
135 GOTO 124
136 CLOSE 1:OPEN 1,8,2,LO$
137 SYS896:W=W+1
138 W$(W)=LEFT$(A$,PEEK(142))
139 IF ST=0 THEN 137
140 PRINT"[147]":CLOSE 1:MC=MC+1:IF MC=1 THEN GOSUB 400
141 PRINT" [155]           "
142 PRINT   "   [207]PTIONS  [151] [146]  [156] [208]RESS [203]EYS [212]O[160][211]ELECT"
143 PRINT   " [155]           [151] "
144 PRINT   "  [151]          [151] "
145 PRINT"   [159][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][155]"
146 PRINT"[159]   [158][205][159] [205]ODE: ";:IF MD=0 THEN PRINT"[156][208]OLITE"
147 IF MD=1 THEN PRINT"[156][210]UDE   "
148 PRINT"[145][158][212][159] [212]IME [204]IMIT: ";:IF TL=0 THEN PRINT"[156][206]O  "
149 IF TL=1 THEN PRINT"[156][217]ES"
150 PRINT"[158] [194][159] [194]ONUS: ";:IF BN=0 THEN PRINT"[156] [206]O  "
151 IF BN=1 THEN PRINT"[156] [217]ES"
152 PRINT"[145][158][200][159] [200]ELP":PRINT"[155]            [211]PACE [212]O [208]LAY"
153 GET Q$
154 IF Q$="M" THEN IF MD=0 THEN MD=1:GOTO 141
155 IF Q$="M" THEN IF MD=1 THEN MD=0:GOTO 141
156 IF Q$="T" THEN IF TL=1 THEN TL=0:GOTO 141
157 IF Q$="T" THEN IF TL=0 THEN TL=1:GOTO 141
158 IF Q$="B" THEN IF BN=0 THEN BN=1:GOTO 141
159 IF Q$="B" THEN IF BN=1 THEN BN=0:GOTO 141
160 IF Q$="I" THEN M%=1:GOTO 530
161 IF Q$="H" THEN 519
162 IF Q$=" " THEN 170
163 GOTO 153
170 REM DISPLAY
171 PRINT"[147]        [151] [152] [155] [194]ASH [217]ER [194]RAINS! [152] [151] [146]":IF A=0 THEN A=1
172 PRINT"[159]           [211]CORE:[156]"SC;:IF BN=1 THEN PRINT" ([194]ONUS [197]NABLED)"
174 PRINT:PRINT"[155]"W$(A)
175 PRINT"F1 "W$(A+1):RE=RE+1:IF RE>=16 THEN RE=1
176 PRINT"[159]F3 "W$(A+2):M=M+2:IF M>=15 THEN M=1
177 PRINT"[150]F5 "W$(A+3)
178 PRINT"[154]F7 "W$(A+4)"[159]"
179 IF W$(A+5)="A" THEN X$=CHR$(133)
180 IF W$(A+5)="B" THEN X$=CHR$(134)
181 IF W$(A+5)="C" THEN X$=CHR$(135)
182 TI$="000000":IF W$(A+5)="D" THEN X$=CHR$(136)
183 GET U$: IF U$="H" THEN 540
184 IF U$="[133]" OR U$="[134]" THEN 188
185 IF U$="[135]" OR U$="[136]" THEN 188
186 IF TL=1 AND VAL(TI$)>=4 THEN PRINT" [159][212]IMES [213]P!":GOTO 230
187 GOTO 183
188 IF BN=1 AND U$=X$ THEN PO=PO+1:IF PO=4 THEN SC=SC+4:PO=0
189 IF MD=0 AND U$=X$ THEN PRINT" [159][195]ORRECT!":SC=SC+1:GOTO 230
190 IF MD=1 AND U$=X$ THEN PRINT""CM$(M):M=M+1:SC=SC+1:GOTO 230
191 IF MD=1 AND U$<>X$ THEN ER=ER+1:PRINT"[158]   "RE$(ER):GOTO 230
192 IF U$<>X$ THEN PRINT"[158] [201]NCORRECT.":GOTO 230
230 PRINT"         [155]   [208]RESS [193]NY [203]EY":WAIT 198,1:POKE 198,0
231 IF A+6=<W THEN A=A+6:GOTO 170
232 PRINT"[147]         [156]  [159]  [194]ASH [217]ER [194]RAINS  [156]    [146]"
233 PRINT" [151][192][192][192][192][192][192][192][192][192][192][192][192][155][199]AME [207]VER[151][192][192][192][192][192][192][192][192][192][192][192][192][192]"
234 PRINT"  [159][211]CORE:"SC:PRINT" [207]UT OF:"INT(W/6):IF BN=1 THEN PRINT"  +[194]ONUS:";
235 IF BN=1 THEN PRINTINT((W/6)/4)
236 PRINT"[155] [210]ANKING:[159]";
237 FOR P=1 TO 10
238 IF MD=0 AND SC=P THEN PRINT" [206]OT [199]OOD.":GOTO 271
239 IF MD=1 AND SC=P THEN PRINT" [200]ORRIBLE!!":GOTO 271
240 NEXT P
241 FOR P=11 TO 20
242 IF MD=0 AND BN=1 AND SC=P THEN PRINT" [207]N [212]HE [204]OW [211]IDE.":GOTO 271
243 IF MD=1 AND BN=1 AND SC=P THEN PRINT" [193] [215]ASTE [207]F [212]IME.":GOTO 271
244 IF BN=0 AND SC=P THEN PRINT" [199]OOD!":GOTO 271
245 NEXT P
246 IF SC>20 THEN PRINT" [214]ERY [199]OOD":GOTO 271
247 IF SC=0 AND BN=1 THEN PRINT"[195]AN [217]OU [210]EAD?":GOTO 271
248 IF SC=0 AND BN=0 THEN PRINT"[214]ERY [214]ERY [194]AD":GOTO 271
249 PRINT"[207]K":GOTO 271
271 PRINT" [155][215]HAT [206]OW?:":SC=0
272 PRINT" [156][197][159] [197]ND [208]ROGRAM  [156][206][159] [206]EW [199]AME"
273 PRINT" [156][196][159] [206]EW [196]ISK     [156][210][159] [210]EPLAY THIS ROUND"
274 GET Q$
275 IF Q$="E" THEN Q$="Q":GOTO 128
276 IF Q$="N" THEN 300
277 IF Q$="D" THEN CLR:GOTO 100
278 IF Q$="R" THEN A=0:GOTO 140
279 GOTO 274
300 W$="":A=0:FOR A=0 TO 120:W$(A)="":NEXT A:A=0:W=0:GOTO 105
400 FOR Z=1 TO 15:READ S$:CM$(Z)=S$:NEXT Z
401 FOR ZX=1 TO 15:READ S$:RE$(ZX)=S$:NEXT ZX
402 RETURN
420 DATA "[207]K, [201]LL GIVE YOU THIS ONE","[215]ELL YOU HAVE ONE RIGHT","'NOTHER CORRECT"
421 DATA "[195]ORRECT, [193] NEW RECORD!","[212]HERE'S HOPE FOR YOU YET!","[193] [199]ENIUS, [210]IGHT?"
422 DATA "[195]ORRECT","[210]EALLY, [201]'M EXITED FOR YOU.","[195]ORRECT,[196]ON'T HAVE A COW MAN!"
423 DATA "[193] MIND LIKE A STEEL TRAP","[199]OLLY, [194]EEVE, [195]ORRECT!","[193]NOTHER [208]OINT."
424 DATA "[193]RE YOU SURE YOU DONT WORK FOR [206][193][211][193]?","[206]OBEL [208]RIZE [205]ATERIAL","[207]K"
425 DATA "[215]RONG, [200]OPELESSLY [215]RONG!","[215][210][207][206][199],[201][206][195][207][210][210][197][195][212],ECT...","[206][207] [206][207] [206][207]!!!"
426 DATA "[206][197][216][212]!!!","[204]OOSER!","[212]OO [194]AD","[201]M [195]RYING FOR YOU","[211][201][199][200], NO, NO..."
427 DATA "[199]ASP [193]ND [211]WOON, [204]OOSE AGAIN!","[215]AKE ME WHEN YOU GET SOMTHING RIGHT."
428 DATA "[206]O","[206]OPE","[217]AWN!, [206]O!","[210]EAL [212]HINKER [200]ERE!, [206][207]!!","[206]OPE, [217]OU [196]OPE!"
508 PRINT"[147][151]           [192][192][192][192] [200][197][204][208] [192][192][192][192]
509 [153]"   LIST (null)HE PREVIOUS SCREEN IS THE (null)RIVIA "
510 [153]"  STR$IRECTORY OF THE OPENPEEKASH (null)ER PEEKRAINSLIST"
511 [153]"  FILES ON THIS DISK. (null)ELECT THE "
512 [153]"  NUMBER OF THE GAME YOU WISH TO PLAY"
513 [153]"CLR          TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN  OPEN ":[153]"            (null)THER LENOMMANDS
514 PRINT"    [155][196][152] [206]EW [196]ISK   [155][209][152] [209]UIT [208]ROGRAM"
515 PRINT"    [155][200][152] [200]ELP [152]([193]CTIVE [201]N [193]LL [211]ECTIONS)[152]"
516 PRINT"    [155][201][152] [201]NFORMATION [156]([207]THER [211]TUFF)[152]"
517 PRINT"            [208]RESS [193]NY [203]EY":WAIT 198,1:POKE 198,0:GOTO 105
519 PRINT"[147]        [155]       [156][192][192] [200]ELP [192][192]"
520 PRINT" [159]   [194]Y [208]RESSING THE CORROSPONDING"
521 PRINT"  LETTER, YOU CAN CHANGE EACH SETTING"
522 PRINT"  TO YOUR PERSONAL LIKING.           ":PRINT"       [192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
523 PRINT"  [156] [205] [159] [205]ODE [156][210]UDE OR [208]OLITE"
524 PRINT"  [156] [201] [159] [208]ROGRAMMING [201]NFO"
525 PRINT"  [156] [194] [159] [194]ONUS [156][207]N OR [207]FF ([193]DDS 2[207] [208]OINTS)"
528 PRINT"  [156] [200] [159] [212]HIS [200]ELP [211]CREEN":PRINT"  [156] [212] [159] [212]IME [204]IMIT [156][207]N OR [207]FF[159]"
529 PRINT"          [208]RESS [193]NY [203]EY":WAIT 198,1:POKE 198,0:GOTO 140
530 PRINT"[147][158]       [194]ASH [217]ER [194]RAINS  [201]NFORMATION"
531 PRINT"[159] [192][192][192][192][192][192][192][192]  [208]ROGRAMMIES:  [192][192][192][192][192][192][192][192][192][192][192][192]"
532 PRINT"     [155][212]ROY [210]UTTER  [156] ([205]ACHINE [204]ANGUAGE)"
533 PRINT"     [155][202]ASON [205]OORE  [156] ([194]ASIC)"
534 PRINT" [155]  [192][192]  [212]HANKS TO THE [153]ANONYMOUS.  [192][192][159]"
535 PRINT" [205]AIL COMMENTS OR QUESTIONS TO [158][212]AR[202]AM[159]              ON [209]LINK OR TO:"
536 PRINT"         [154] [212][193][210]-[202][193][205] [159] [211]OFT[215]ARE [146]":PRINT"          15[207]8 [210]IDGEWOOD"
537 PRINT"           [193]MES, [201]A 5[207][207]1[207]"
538 PRINT"[159]            [208]RESS [193]NY [203]EY":WAIT 198,1:POKE 198,0:IF M%=0 THEN 105
539 IF M%=1 THEN 140
540 PRINT"[147]          [154] [192][192][192] [200][197][204][208] [192][192][192][159]"
541 PRINT"   [212]HE PREVIOUS SCREEN IS WHERE THE
542 [153]" CLRPEEKASH (null)ER PEEKRAINSOPEN TRIVIA QUESTIONS ARE"
543 [153]" DISPLAYED. (null)RESS THE ASCUNCTION (null)EY
544 PRINT" (F1-F7)[159] THAT CORRESPONDS TO YOUR
545 [153]" DESIRED ANSWER.
546 PRINT" [158]       [208]RESS [193]NY [203]EY.":WAIT 198,1:POKE 198,0:GOTO 170
600 POKE 808,234:POKE 251,64:POKE252,224:POKE253,204
601 SYS 51456:SYS51459:POKE198,0
602 GET CH$:IFCH$=""THEN 602
603 SYS 51459:GOTO 3